<script>on mouseUpset the cursor to 4global userName,id,clickSpeed,autoC,powerUser,mHomeVers,dr,mHomeDateglobal coords,mX,screenS,shiftT,mHomeRev,dragDelay,adsIput empty into card field xset the lockScreen to trueif mHomeVers is empty thenput "(Not installed)" into card field xelseput "Version"&&mHomeVers&&"installed" into card field xend ifif mHomeRev is empty thenif mHomeVers is empty thenput "(MegaHome not installed)" into line 2 of card field xelseput "(Unknown)" into line 2 of card field xend ifelseput item(item 2 of mHomeRev/20) of "∂lpha test,ßeta test,Developmental,Release Version" into line 2 of card field xend ifif mHomeDate is empty thenif mHomeVers is empty thenput "(MegaHome not installed)" into line 3 of card field xelseput "(Unknown)" into line 3 of card field xend ifelseput mHomeDate into line 3 of card field xend ifput the version into line 4 of card field xif userName is empty thenput "(No UserName/Unknown)" into line 5 of card field xelseput userName into line 5 of card field xend ifput the userLevel into line 6 of card field xif the version of HyperCard<1.1 thenput "(Not implemented)" into line 7 of card field xelseif the textArrows is true then put "on" into line 7 of card field x¬else put "off" into line 7 of card field xend ifif the powerKeys is true then put "on" into line 8 of card field x¬else put "off" into line 8 of card field xif the blindTyping is true then put "on" into line 9 of card field x¬else put "off" into line 9 of card field xif powerUser is empty thenput "(Not implemented/Unknown)" into line 10 of card field xelseif powerUser is true then put "on" into line 10 of card field x¬else put "off" into line 10 of card field xend ifif shiftT is empty thenput "(Not implemented/Unknown)" into line 11 of card field xelseif shiftT is true then put "on" into line 11 of card field x¬else put "off" into line 11 of card field xend ifif clickSpeed is empty or clickSpeed <1 or clickSpeed >4 thenput "(Not implemented/Unknown)" into line 12 of card field xelseput "Fast,Medium,Slow" into listput clickSpeed&&"("&item(trunc(clickSpeed)) of list&")" into line¬12 of card field xend ifif screenS is empty or screenS <0 or screenS >2 thenput "(Not implemented/Unknown)" into line 13 of card field xelseput "Off,Normal,Boss" into listput item (screenS+1) of list into line 13 of card field xend ifif id is empty thenput "(Not implemented/Unknown)" into line 14 of card field xelseput id into line 14 of card field xend ifif adsI is empty thenput "(1000/Unknown)" into line 15 of card field xelseput adsI into line 15 of card field xend ifif autoC is empty thenput "(Not implemented/Unknown)" into line 16 of card field xelseif autoC is true then put "on" into line 16 of card field x¬else put "off" into line 16 of card field xend ifif mX is empty thenput "(Not implemented/Unknown)" into line 17 of card field xelseif mX is true then put "on" into line 17 of card field x¬else put "off" into line 17 of card field xend ifif dr is empty thenput "(Not implemented/Unknown)" into line 18 of card field xelseif dr is true then put "on" into line 18 of card field x¬else put "off" into line 18 of card field xend ifif dragDelay is empty or dragDelay<0 or dragDelay>2 thenput "(Not implemented/Unknown)" into line 19 of cd fld xelseput "None,Short,Long" into listput dragDelay&&"("&item(trunc(dragDelay)+1) of list&")" into line¬19 of cd fld xend ifif coords is empty thenput "(Not implemented/Unknown)" into line 20 of card field xelseif coords is true then put "on" into line 20 of card field x¬else put "off" into line 20 of card field xend ifput the scriptTextFont&&the scriptTextSize into line 21 of cd fld xend mouseUp</script>